home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / editor / proged10.lha / InstallProgED / SASC_support / LastError.script < prev    next >
Text File  |  1995-06-13  |  451b  |  31 lines
  1. /*******************************************
  2.  *
  3.  * LastError.script
  4.  * by Giovanni Lambiase (C) 1995
  5.  *
  6.  * This Arexx macro jump to last error in
  7.  * SCMSG list.
  8.  *
  9.  *******************************************/
  10.  
  11. OPTIONS RESULTS
  12. OPTIONS FAILAT 31
  13.  
  14. IF SHOW('PORTS','SC_SCMSG') THEN
  15. DO
  16.     ADDRESS 'SC_SCMSG'
  17.  
  18.     /* If no errors -> close SCMSG */
  19.     'TEXT'
  20.     IF RESULT='' THEN
  21.     DO
  22.         'HIDE'
  23.     END
  24.     ELSE
  25.     DO
  26.         /* Jump to last error */
  27.         'BOTTOM'
  28.         'SELECT'
  29.     END
  30. END
  31.